home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / G / GROUP1.cpt / GROUP1 Folder / Group 1 Analysis / card_14504.txt < prev    next >
Encoding:
Text File  |  1991-08-08  |  8.9 KB  |  466 lines
  1. -- card: 14504 from stack: in
  2. -- bmap block id: 14674
  3. -- flags: 0000
  4. -- background id: 5931
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on opencard
  8.   global time1
  9.   global Silver
  10.   global Mercury
  11.   global Lead
  12.   global key
  13.   put empty into bkgnd field "info"
  14.   put "Please Click on Next Reagent" into bkgnd field "info"
  15.   set the highlight of button "invert" to true
  16. end opencard
  17.  
  18.  
  19.  
  20.  
  21. on check
  22.   global Silver
  23.   global Mercury
  24.   global Lead
  25.   global reagent
  26.   global route
  27.   global score
  28.   if Reagent <> "Distilled Water" then
  29.     set the highlight of card button cv2 to true
  30.     put "Wrong reagent" into line 1 of bkgnd field "info"
  31.  
  32.     put "Examine Flow Chart" into line 2 of bkgnd field "info"
  33.     repeat 2
  34.       set the highlight of card button "flow Chart" to true
  35.       wait 1 second
  36.       set the highlight of card button "flow Chart" to false
  37.       wait 1 second
  38.     end repeat
  39.     set the highlight of card button cv2 to false
  40.     exit check
  41.   end if
  42.   set the highlight of button "invert" to false
  43.   put empty into card field "dist"
  44.   show card field "dist"
  45.   put empty into bkgnd field "info"
  46.   put  "Adding Distilled water" into line 5 of card field "dist"
  47.   put  "to Test Tube" into line 7 of card field "dist"
  48.   put  "and agitating Precipitate" into line 9 of card field "dist"
  49.   wait 2 seconds
  50.  
  51.   hide card field "dist"
  52.   visual dissolve slow
  53.   go to next card
  54.  
  55. end check
  56.  
  57.  
  58.  
  59.  
  60. -- part 4 (field)
  61. -- low flags: 81
  62. -- high flags: 0004
  63. -- rect: left=0 top=20 right=178 bottom=387
  64. -- title width / last selected line: 0
  65. -- icon id / first selected line: 0 / 0
  66. -- text alignment: 1
  67. -- font id: 21
  68. -- text size: 24
  69. -- style flags: 0
  70. -- line height: 32
  71. -- part name: note
  72.  
  73.  
  74. -- part 11 (button)
  75. -- low flags: 00
  76. -- high flags: 2000
  77. -- rect: left=3 top=44 right=106 bottom=54
  78. -- title width / last selected line: 0
  79. -- icon id / first selected line: 0 / 0
  80. -- text alignment: 1
  81. -- font id: 0
  82. -- text size: 12
  83. -- style flags: 0
  84. -- line height: 16
  85. -- part name: Hydrochloric Acid
  86. ----- HyperTalk script -----
  87. on mouseUp
  88.   global route
  89.   global reagent
  90.   global lastClick
  91.  
  92.   if the seconds - lastClick < 4 then exit mouseup
  93.   else put the seconds into lastClick
  94.   get the short name of me
  95.   put it into reagent
  96.   check
  97.  
  98.  
  99. end mouseUp
  100.  
  101.  
  102.  
  103. -- part 12 (button)
  104. -- low flags: 00
  105. -- high flags: 2000
  106. -- rect: left=64 top=44 right=106 bottom=115
  107. -- title width / last selected line: 0
  108. -- icon id / first selected line: 0 / 0
  109. -- text alignment: 1
  110. -- font id: 0
  111. -- text size: 12
  112. -- style flags: 0
  113. -- line height: 16
  114. -- part name: Nitric Acid
  115. ----- HyperTalk script -----
  116. on mouseUp
  117.  
  118.   global reagent
  119.  
  120.   global lastClick
  121.  
  122.   if the seconds - lastClick < 4 then exit mouseup
  123.   else put the seconds into lastClick
  124.   get the short name of me
  125.   put it into reagent
  126.   check
  127.  
  128.  
  129. end mouseUp
  130.  
  131.  
  132.  
  133. -- part 13 (button)
  134. -- low flags: 00
  135. -- high flags: 2000
  136. -- rect: left=125 top=44 right=106 bottom=176
  137. -- title width / last selected line: 0
  138. -- icon id / first selected line: 0 / 0
  139. -- text alignment: 1
  140. -- font id: 0
  141. -- text size: 12
  142. -- style flags: 0
  143. -- line height: 16
  144. -- part name: Distilled Water
  145. ----- HyperTalk script -----
  146. on mouseUp
  147.  
  148.   global reagent
  149.   global lastClick
  150.  
  151.   if the seconds - lastClick < 4 then exit mouseup
  152.   else put the seconds into lastClick
  153.   get the short name of me
  154.   put it into reagent
  155.   check
  156.  
  157.  
  158. end mouseUp
  159.  
  160.  
  161.  
  162. -- part 14 (button)
  163. -- low flags: 00
  164. -- high flags: 2000
  165. -- rect: left=184 top=44 right=106 bottom=235
  166. -- title width / last selected line: 0
  167. -- icon id / first selected line: 0 / 0
  168. -- text alignment: 1
  169. -- font id: 0
  170. -- text size: 12
  171. -- style flags: 0
  172. -- line height: 16
  173. -- part name: Potassium Dichromate
  174. ----- HyperTalk script -----
  175. on mouseUp
  176.   global route
  177.   global reagent
  178.   global lastClick
  179.  
  180.   if the seconds - lastClick < 4 then exit mouseup
  181.   else put the seconds into lastClick
  182.   get the short name of me
  183.   put it into reagent
  184.   check
  185.  
  186.  
  187. end mouseUp
  188.  
  189.  
  190.  
  191. -- part 15 (button)
  192. -- low flags: 00
  193. -- high flags: 2000
  194. -- rect: left=246 top=44 right=106 bottom=297
  195. -- title width / last selected line: 0
  196. -- icon id / first selected line: 0 / 0
  197. -- text alignment: 1
  198. -- font id: 0
  199. -- text size: 12
  200. -- style flags: 0
  201. -- line height: 16
  202. -- part name: Ammonia
  203. ----- HyperTalk script -----
  204. on mouseUp
  205.   global route
  206.   global reagent
  207.   global lastClick
  208.  
  209.   if the seconds - lastClick < 4 then exit mouseup
  210.   else put the seconds into lastClick
  211.   get the short name of me
  212.   put it into reagent
  213.   check
  214.  
  215.  
  216. end mouseUp
  217.  
  218.  
  219.  
  220. -- part 22 (field)
  221. -- low flags: 81
  222. -- high flags: 0000
  223. -- rect: left=389 top=212 right=283 bottom=507
  224. -- title width / last selected line: 0
  225. -- icon id / first selected line: 0 / 0
  226. -- text alignment: 0
  227. -- font id: 3
  228. -- text size: 12
  229. -- style flags: 0
  230. -- line height: 16
  231. -- part name: hold
  232.  
  233.  
  234. -- part 29 (field)
  235. -- low flags: 81
  236. -- high flags: 0001
  237. -- rect: left=161 top=212 right=319 bottom=195
  238. -- title width / last selected line: 0
  239. -- icon id / first selected line: 0 / 0
  240. -- text alignment: 0
  241. -- font id: 3
  242. -- text size: 12
  243. -- style flags: 0
  244. -- line height: 16
  245. -- part name: f
  246.  
  247.  
  248. -- part 36 (button)
  249. -- low flags: 00
  250. -- high flags: 8002
  251. -- rect: left=434 top=205 right=254 bottom=509
  252. -- title width / last selected line: 0
  253. -- icon id / first selected line: 0 / 0
  254. -- text alignment: 1
  255. -- font id: 0
  256. -- text size: 12
  257. -- style flags: 0
  258. -- line height: 16
  259. -- part name: Flow Chart
  260. ----- HyperTalk script -----
  261. on mouseUp
  262.   push card
  263.   go to card id 7591
  264.   put 1 into zz
  265.   repeat until zz = 4
  266.     set the highlight of card button step2a to true
  267.     wait 30
  268.     set the highlight of card button step2a to false
  269.     wait 30
  270.     put zz+1 into zz
  271.   end repeat
  272.  
  273. end mouseUp
  274.  
  275.  
  276.  
  277. -- part 37 (button)
  278. -- low flags: 00
  279. -- high flags: 2000
  280. -- rect: left=433 top=5 right=95 bottom=511
  281. -- title width / last selected line: 0
  282. -- icon id / first selected line: 0 / 0
  283. -- text alignment: 1
  284. -- font id: 0
  285. -- text size: 12
  286. -- style flags: 0
  287. -- line height: 16
  288. -- part name: cv
  289. ----- HyperTalk script -----
  290.  
  291.  
  292. on mouseUp
  293.  
  294.  
  295.  
  296.  
  297.   show card field "info"
  298.   Put "Please Wait" into line 2 of card field info
  299.   Put "While Centrifuging" into line 4 of card field "info"
  300.   wait 1 second
  301.   visual dissolve slow
  302.   go to next card
  303.   set the lockscreen to true
  304.   go back
  305.   hide card field "info"
  306.   put empty into card field  "info"
  307.   go to next card
  308.  
  309.   set the lockscreen to false
  310.  
  311.  
  312.  
  313. end mouseUp
  314.  
  315.  
  316.  
  317.  
  318. -- part 38 (field)
  319. -- low flags: 81
  320. -- high flags: 0004
  321. -- rect: left=1 top=112 right=205 bottom=390
  322. -- title width / last selected line: 0
  323. -- icon id / first selected line: 0 / 0
  324. -- text alignment: 1
  325. -- font id: 3
  326. -- text size: 14
  327. -- style flags: 256
  328. -- line height: 18
  329. -- part name: Message
  330. ----- HyperTalk script -----
  331. on mouseup
  332.   hide card field "message"
  333. end mouseup
  334.  
  335.  
  336.  
  337. -- part 39 (button)
  338. -- low flags: 00
  339. -- high flags: 2000
  340. -- rect: left=434 top=112 right=198 bottom=504
  341. -- title width / last selected line: 0
  342. -- icon id / first selected line: 0 / 0
  343. -- text alignment: 1
  344. -- font id: 0
  345. -- text size: 12
  346. -- style flags: 0
  347. -- line height: 16
  348. -- part name: Hot Water Bath
  349. ----- HyperTalk script -----
  350. on mouseUp
  351.  
  352.  
  353.   Put empty into card field "message"
  354.   show card field "message"
  355.   put "Check Flow Chart" into line 1 of card field "message"
  356.   Put "Hot Water Bath not used " into line 3 of card field "message"
  357.   put "at this time" into line 5 of card field "message"
  358.   wait 2 seconds
  359.   hide card field "message"
  360.  
  361.  
  362.  
  363. end mouseUp
  364.  
  365.  
  366.  
  367. -- part 40 (field)
  368. -- low flags: 81
  369. -- high flags: 0004
  370. -- rect: left=0 top=7 right=206 bottom=416
  371. -- title width / last selected line: 0
  372. -- icon id / first selected line: 0 / 0
  373. -- text alignment: 1
  374. -- font id: 21
  375. -- text size: 18
  376. -- style flags: 0
  377. -- line height: 24
  378. -- part name: info
  379.  
  380.  
  381. -- part 41 (button)
  382. -- low flags: 00
  383. -- high flags: 0000
  384. -- rect: left=0 top=115 right=172 bottom=383
  385. -- title width / last selected line: 0
  386. -- icon id / first selected line: 0 / 0
  387. -- text alignment: 1
  388. -- font id: 0
  389. -- text size: 12
  390. -- style flags: 0
  391. -- line height: 16
  392. -- part name: cv2
  393. ----- HyperTalk script -----
  394. on mouseUp
  395.   put "or go to flow chart" into line 2 of bkgnd field "info"
  396.  
  397.   repeat 2 times
  398.     set the highlight of card button "cv2" to true
  399.     wait 1 second
  400.     set the highlight of card button "cv2" to false
  401.     wait 1 second
  402.   end repeat
  403.  
  404. end mouseUp
  405.  
  406.  
  407.  
  408. -- part 43 (field)
  409. -- low flags: 81
  410. -- high flags: 0004
  411. -- rect: left=0 top=0 right=331 bottom=512
  412. -- title width / last selected line: 0
  413. -- icon id / first selected line: 0 / 0
  414. -- text alignment: 1
  415. -- font id: 2
  416. -- text size: 18
  417. -- style flags: 0
  418. -- line height: 24
  419. -- part name: dist
  420.  
  421.  
  422. -- part 44 (button)
  423. -- low flags: 00
  424. -- high flags: 0000
  425. -- rect: left=5 top=210 right=308 bottom=185
  426. -- title width / last selected line: 0
  427. -- icon id / first selected line: 0 / 0
  428. -- text alignment: 1
  429. -- font id: 0
  430. -- text size: 12
  431. -- style flags: 0
  432. -- line height: 16
  433. -- part name: invert
  434. ----- HyperTalk script -----
  435. on mouseUp
  436.  
  437. end mouseUp
  438.  
  439.  
  440.  
  441. -- part contents for card part 4
  442. ----- text -----
  443. Please Wait While
  444. Computer Selects
  445. an Unknown for You
  446. to Analyze
  447.  
  448. -- part contents for card part 38
  449. ----- text -----
  450. Check Flow Chart
  451.  
  452. Hot Water Bath not used 
  453.  
  454. at this time
  455.  
  456. -- part contents for card part 43
  457. ----- text -----
  458.  
  459.  
  460.  
  461.  
  462. Adding Distilled water
  463.  
  464. to Test Tube
  465.  
  466. and agitating Precipitate